CD Actual 3/CD ACTUAL 3.iso/internet/idecnet/directo.cm_/directo

Text File | 1996-04-22 | 5.1 KB | 177 lines

#trace on
# -- Unix shows
$prompt = ">"
$userprompt = "ogin:"
$passprompt = "assword:"
$badlogin = "ogin incorrect"
# -- Send to Unix
$pppcmd = "ppp"
# -- Modem commands - rather standard --
$attention = "AT"
$dialpref = "ATD"
$getonline = "ATO"
$resetmodem = "ATZ"
# -- Modem return messages - rather standard --
$nodialtone   = "NO DIAL"     # substring for NO DIAL TONE
$busy         = "BUSY"
$connectmsg   = "CONNECT"
# First Load parameters form .ini file - or generate them
if ![load $number]
  if [query $number "Introduzca numero de telefono"]
    save $number
  end
end
if ![load $username]
  if [username "Introduzca su identificador (login)"]
    save $username
  end
end
#Modem init strings.
if ![load $initmodem]
   $initmodem = $attention
   query $initmodem "Cadena de inicializacion del modem:"
   save $initmodem
end
# -- Modem dial string --
if ![load $dialprefix]
   $dialmode = "T"
   query $dialmode "Marcacion por Tonos o por Pulsos (T o P) "
   $dialprefix   = $dialpref + $dialmode
   save $dialprefix
end
# Display Constants in TCPMAN window
display \n\n
display "+-----------------------------------------------------+"\n
display "                     .-= IDEC =-."\n
display \n
display "                  Usuario: " $username\n
display "                 Telefono: " $number\n
display "+-----------------------------------------------------+"\n
display \n
# ===== CHECK TO SEE IF MODEM IS CURRENTLY ONLINE  ========
#       if still connected then give option to abort by pressing [ESC]
display "Comprobando el estado de linea..."\n
echo off
output +++
#sleep 2
#output $getonline\r              #see if on line
#if [input 2 $connectmsg ] # if ATO returns a string 'CONNECT' then on line
#   display \n
#   display "El modem informa de que hay una conexion activa"\n
#   display "Pulse ESC antes de 5 segundos para detener la desconexion"\n
#   display " 5"
#   sleep 1
#   display \b "4"
#   sleep 1
#   display \b "3"
#   sleep 1
#   display \b "2"
#   sleep 1
#   display \b "1"
#   sleep 1
#   display \b "0"\n
#   output +++  # Disconnect again
#   sleep 2
#end
echo off
# ====== Initialize Modem ============
display "Inicializando el modem..."\n
set dtr off    # hang up if connected  (This really isn't needed since +++ above)
sleep 1        # note that these sleeps are needed for +++ above
set dtr on
sleep 1
output $resetmodem\n
if ![input 4 OK\n]
   display "ERROR: El reset del modem falla."\n
   display "       Verifique la conexion y estado del modem."\n
   exec egassem.exe
   abort
end
output $initmodem\r
if ![input 4 OK\n]
   display "ERROR: El modem no responde o se produjo un error con la"\n
   display "       cadena de inicializacion."\n
   display "       Verifique la conexion y estado del modem y los"\n
   display "       valores de la secuencia inicial."\n
   exec egassem.exe
   abort
end
# ======== Dial Modem ===========
display "Estableciendo comunicacion con IDEC (" $number ")"\n
%attempts = 10
%n = 0
display \n
repeat
  if %n = %attempts
    display "ERROR: No se pudo conectar con IDEC"\n
    display "       < Lineas ocupadas >"\n
    display "       Vuelva a intentarlo dentro de unos minutos."\n
    exec egassem.exe
    abort
  end
  output $dialprefix $number\13
  if [ input 7 $nodialtone ]
    display "ERROR: No hay linea!"\n
    exec egassem.exe
    abort
  end
  %ok = [input 60 $connectmsg]
  %n = %n + 1
until %ok
# wait a while for modem to be ready
wait 30 dcd
input 10 \n
# now prod the terminal server
output \13
# ========= Login ============
display "Enviando la identificacion de usuario a IDEC..."\n
sleep 2
echo off
repeat
  if [input 10 $userprompt]
     sleep 1
     output $username\r
  else
     display "ERROR: No se pudo mandar la identificacion de usuario"\n
     exec egassem.exe
     abort
  end
  if [input 10 $passprompt]
    password "Introduzca su clave de acceso"
    output $password\r
  else
     display "ERROR: No se pudo mandar la identificacion de usuario"\n
     exec egassem.exe
     abort
  end
until ![input 2 $badlogin]
display \n
display \n
display "Conectando PPP..."\n
sleep 2
echo off
display \n
display "+-----------------------------------------------------------+"\n
display "                Conexion PPP Establecida"\n
display "          Bienvenido a Internet con IDEC"\n
display "+-----------------------------------------------------------+"\n
display "ATENCION: Si las dos direcciones IP en pantalla"\n
display "          no coinciden, la conexion no funcionara"\n
display "          correctamente."\n
display \n
display "IDEC le proporciona la siguiente direccion:"
input 30 "Su IP:"
echo on
address 60
echo off
display \n"Winsock utilizara la direccion IP:         "\i\n
display \n
display "+-----------------------------------------------------------+"\n
display \n
display "  Minimice esta ventana para empezar a trabajar en Internet, "\n
display "ejecutando las distintas aplicaciones Internet que necesite."\n
display "No olvide  ejecutar Bye (en el menu Dialler) para finalizar "\n
display "la sesion y dejar la linea telefonica libre."\n
exec chnt.exe
online